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ABSTRACT 


We constructed an Intelligent Computer Assisted Instruction (ICAI) program to 
tutor the usage of the TOPS20-MM, an electronic mail facility available on the Defense 
Data Network (DDN). Learning by experience is one of the best ways to leam 
something. The main strategy of tutoring in this thesis was to provide an environment 
simulating the actual facility that guides the student while he/she tries to perform given 
tasks. Means-ends analysis, a classic technique for solving search problems in Artificial 
Intelligence, has been used to figure out the mnght command to perform a given task. 
Basic commands, e.g. a command for viewing a message number 7, will be taught first, 
then the tasks like "Send a message to the people mentioned in message number 3” will 


be issued. 


eee 


TABLE OF CONTENTS 


Pose he ese Geese He eeeeeesseseeoeeen ee ee eeeeeeeeeeeeseeeeeoneoeoeeeeeeee ee eeeeeeeeee 


Il. SUR VEY-OF PREVIOUS WOR Kore ees». caer ae 


1. Overview ............. 


SCHOHOSHSHSHSHSHS HHS SHSHSHSH HHS SHSHESSHSHSRHSHHSHSHSHHSHSHHHSHHHSHSHHSHHSHEHREOHSHHSHHS SH HSH HSHHSHHHHH HHH HEHE 


2:elntelligent CAT Sy stemsien......:.0vs00001 2001.00 eee 3. «eee 


a. SOPHIE........ 
b. GUIDON ...... 
c. EXCHECKEK ... 


Cooeeee ee eeeeeeeeSeoeseseseeseeeeeeoeeeeeeeeoeee ee eeeeeeteoneeeeeenteteosreneeeee ee eoeneeen 


eevee ee ee eeeeeseeeeeeeoeeeoeveoev eee ee eeeeseteeeeeesee ee eeeeeeoeeeeeeeeeeeeoeeeeeeene eee 


di De CaM OTkShOD sel iiessss sc cngeuniiei mentee isa einen ae eee 
Il. Description of thera ppc AvlON . s3i.v.200te... . rcecor es er Rene erie ene se erenenmenrene nena 


A. About DDN .................. 
B. About TOPS20-MM .... 


IV. Implementation of the Tutor 


S@eeeeeeeeeeeeeeeeeeeeteeoetetoaeeeeeeeevneeneoneeoeeoesoesoesoeoeoeoeeeeeneeeee eo oeoneeoeeoeoene 


@OeeeeeoFeeseseese ee SS SeeSSSeeeeeeeeee Seeeeeeeeeeeeeee ee eeeeeeeeee ee Feeneeer ee ees 


A. Data Structures and the System Environment .....................:ssssessecereeneenees 
B.. Structure of thespro granny cise essr-s tg eee ee eee eee ce nee 
1. Problem Domain Module. c.cic aavcrea ererertencrcetee saeieeee 


2. Tutor Module ....... 


COCSCH SH SH PHS HSH HSH HSH SHHSHHHSHSHHSHSHHEHSHHSHHHHSHHSHHSHHHHSHHHSHSHHSHSHEHSHEHHHCHHHSHSHSH ECOSOC RHR EHR SO Oe 


3. “TOPS20-MIMUModule 2i:.5.30522 ee ee ees ae cece eee 


V., CONCLUSIONS# 


ROSSHSCH SSC HOSES HFT HSHEHSHSHHSHHSHHSHECSCHC SCHR HH HHHSHSHSHHHHSCHHSCHSCHHSCHHSHHEHHSEHHEHT SHEESH EHEC ESEER EE 


iV 


SJ YDA mh hh Hh WW WD 


Lh Bh PO — Re Re SS Se KS Se 
VR me HA MAW NY | | | —- ~) 


ACKNOWLEDGEMENTS 


I would like to express my sincere appreciation to my thesis advisor, Professor Neil 
C. Rowe, for his ceaseless help and guidance throughout the thesis and my second reader, 


Professor Gary K. Poock, who taught me all about the DDN and the TOPS20-MM. 


Now, it is tume to go home and I'd like to thank my family, far away in Korea yet 


stayed within my heart all the way through.... 





I. INTRODUCTION 


This thesis built a tutor to teach an electronic mail facility called “"TOPS20-MM". 
The computer serves as a nice tool to do this. Learning by experience is one of the best 
ways to learn something. This thesis provides a simulation of the MM facility 
environment and the student learns by trying to perform given tasks with it. TOPS20- 
MM, which we have chosen to teach, is the most-used service on the Defense Data 


Network(DDN). The DDN and the TOPS20-MM are discussed briefly in chapter 3. 


Computer-Assisted Instruction(CAI) programs try to encourage and control learning 
while the student is involved in some activity. Artificial intelligence in computer-based 
instructional applications provides a new kind of learning environment. Some of the 


important applications of artificial-intelligence-based teaching are discussed in chapter 2. 


The strategy we have used for teaching is: (1) issue a task or an exercise to the 
student; (2) monitor the student’s actions; (3) compare the command issued by the 
student with the correct command; (4) either perform the actual MM actions or correct 
the error. For the tutor to best teach the student the commands and procedures to use the 
MM facility, it should be able to figure them out itself. To do so, we have exploited 
means-ends analysis, a classic technique for solving search problems by abstraction. 
Means-ends analysis tries to find appropriate operators to reach a certain goal state from 
a starting state by using the preconditions and postconditions of each operator. In our 


program, we have determined preconditions and postconditions of each command. 


For the tasks to be issued, we have used a subskill lattice. With this idea, the basic 
commands available in MM will be taught first, then more complicated tasks which are 
compositions of basic ones. The tutoring program is written in PROLOG and it runs on 


UNIX . 


H. SURVEY OF PREVIOUS WORK 


A. INTELLIGENT TUTORING SYSTEMS 
1. Overview 

The goal of computer aided instruction (CAI) research is to build instructional 
programs that incorporate well-prepared course material in lessons that are optimized for 
each student [Ref. 1]. In the 1970’s, course materials were represented independently of 
teaching procedures by intelligent computer-aided instruction (ICAI) programs, so that 
problems and tutoring advice could be generated differently for each student. In recent 
years, researchers have concentrated on supportive learning environments to provide 
learning-by-doing, which means a student aquires knowledge by solving real-world 
problems [Ref. 2]. To tutor well, a system has to specify exercises and their answers 
ahead of time, and must have an ability to diagnose or model the student’s behavior. It 
must also have tutorial strategies that specify when to interrupt a student and what to say 


then. 


When CAI researchers realized the complexity of such a computer-based tutor, 
they began to apply artificial intelligence (AI) techniques. AI research such as natural- 
language understanding, knowledge representation, and inferencing, have been applied. 
The main components of an such “intelligent computer-aided instruction” (ICAI) systems 
are problem-solving expertise, what the system tries to teach the student; the student 
model, what the student does and does not know; and tutoring strategies, how the system 


presents material to the student. 


2. Intelligent CAI Systems 


In this section four intelligent computer-aided instruction (ICAI) systems 
relevant to this thesis are discussed briefly. 
a. SOPHIE 
SOPHIE (a SOPHisticated Instructional Environment) is an ICAI system 
developed by John Seely Brown, Richard Burton, and their colleagues at Bolt Beranek 
and Newman, Inc [Ref.3:p.247]. It tries to teach natural proofs as they are actually done 
by mathematicians It is designed to provide the student with a leaming environment in 


which he/she acquires problem-solving skills by making hypotheses and trying out ideas. 


SOPHIE has modules for problem-solving knowledge, heuristic strategies 
to answer the student’s questions, rules to criticize the student’s hypotheses, and the rules 
to suggest alternative theories for the current hypothesis. In a simulated electronics 
laboratory, it teaches problem-solving skills. It issues problems to the student to find the 
faults in a malfunctioning electric circuit. After the student measures the equipment and 
proposes a solution, he/she receives feedback as to the logical validity of their proposed 
solutions. When the student makes an error in his/her logic, SOPHIE can critique by 
generating relevant counterexamples. The SOPHIE system combines domain-dependent 
knowledge and domain-independent inferencing mechanisms to answer questions. 

b. GUIDON 

GUIDON was developed by William J. Clancey and his colleagues at 
Stanford University [Ref.3:p.267]. It is design to answer "how the problem-solving rules 
in the MYCIN consultation system can be used by other tutoring programs in interaction 
with a student?" and "what can be done to MYCIN in oreder to make it more effective 
tutorial program?" MYCIN is a rule-based expert system that diagnoses the cause of the 
infection using knowledge relating infecting organisms with patient history and test 


results [Ref.4:p.283. 


GUIDON uses the rules of the MYCIN consultation system as subject 
material and organizes them into procedures. MYCIN’s rules are not been modified, but 
are used to form quizzes, guide the dialogue, summarize evidence, and model the 
student’s understanding for the tutoring application. GUIDON engages the student in a 
dialogue about a patient suspected of having an infection. The student learns the relevant 


clinical and laboratory data and how to use it to diagnose the patient. 


GUIDON differs from other ICAI programs in its mixed-initiative 
dialogue, which allows both tutor and student decide what to do next. It uses structured 
teaching interactions that record the previous dialogue, and it does more than just 
respond to the student’s last action. It demonstrates that by separating teaching 
knowledge from subject knowledge, we can treat the teaching knowledge as a rule-based 
system itself. 

c. EXCHECK 

EXCHECK is an instructional system developed by Patrick Suppes and 
his colleagues at the Institute for Mathematical Studies in the Social Sciences (IMSSS) at 
Stanford University [Ref.3:p.283]. It tries to teach natural proofs as they are actually 


done by mathematicians, by checking student proofs. 


EXCHECK has natural-inference subroutines which allow it to understand 
sketches of proofs, summarize proofs, and explain set theory. These subroutines allow 
the system to interact in a natural style which 1s similar to standard mathematical 
practice. With this system, the student is given lesson materials first, then exercises 
consisting of theorems are given for him/her to prove. Since its inference procedures 
allow the system to recognize the student’s reasoning and track his/her solutions, 


EXCHECK has similarities to SOPHIE. 


d. The C Workshop 
The C workshop is a tutorial program developed by Charles Pine at Word 
Craft [Ref. 5]. It teaches the C programming language by providing a programming 


environment and online help facility. 


It has a tutoring module called Soft Tutor that examines the workings of 
the student’s program. The system presents example programs, and the student modifies 
them to obtain his/her own programs. The Soft Tutor gives immediate feedback by error 
messages. It uses an actual C compiler to teach the C language since its problem domain 
iS a computer system. It provides an working environment, but it lacks much interactive 


ability. 


Ill. Description of the Application 


A. About DDN 

The Defense Data Network (DDN) is a large common-user data communications 
network operated for the Department of Defense (DoD) by the Defense Data Network 
Program Management Office (DDN PMO) of the Defense Communications Agency 
(DCA). Mail services let users send messages electronically to one another. They have 


these features: 
I. Reading messages: select and view specific messages. 


2. Printing, deleting, or moving messages: print messages on the printer, move them 
into files, or delete them. 


3. Sending messages: send messages to other users; you must know the network 
mailbox or “address” of the addressee. 


In this thesis, I'l] concentrate on the "TOPS20 MM" mail service. 


B. About TOPS20-MM 

MM is a sophisticated program used to create and manipulate messages [Ref. 6]. 
MM has three levels: the TOPS20 executive level which displays "@" prompt on the 
screen; the main executive level of MM that displays "MM>" prompt; and the sub-modes 


that can be entered from MM level. 


The top level is the initial and main command level. Here most of MM’s power is 
available through a variety of commands. Available commands and their functions are as 


follows: 


ALIAS: allows you to use MM as the given user. 


ANSWER: allows you to respond a selected message individually. 


APPEND: concatenates selected messages into one. 

BBOARD: allows you to select a file name from a list of names for MM to work. 
BLANK: clears the screen. 

BUG: allows you to report or send suggestions to the MM maintainer. 

CHECK: shows header-lines of newly arrived messages if any. 

CONTINUE: resumes the last SEND, if it was aborted. 

COPY: copies selected messages to the given file name. 

COUNT: gives the number of the required messages. 

CREATE-INIT: makes a new version of MM.INIT in your login directory. 
DAYTIME: gives you the current date and tume. 

DELETE: sets the delete bit to the selected messages. 

DISABLE: makes the current message into read-only mode. 

ECHO: shows a text string you type on the terminal. 

EDIT: allows you to edit selected messages with the editor. 

ENABLE: makes the current message into read-write mode. 

EXAMINE: sets read-only mode to allow you to select a message for MM to work. 
EXIT: halts MM after removing all the deleted messages in the mail file. 
EXPUNGE: just removes all the deleted messages in the mail file. 
FILE-LIST: shows an index of header lines. 

FLAG: just sets the flag bit of selected messages. 

FORWARD: allows you to send selected messages with your comments. 
FROM: allows you to specify the address field with other commands. 
GET: allows you to specify the mail file for MM to work with. 
HEADERS: shows the header line of messages you selected. 

HELP: shows a definition of the following command. 


JUMP: changes the current message to be the following number. 


LIST: shows an index of header lines and then prints the selected messages. 


LITERAL-TYPE: shows the selected messages without regard to the variables 
only-type-headers and dont-type-headers. 


LOGOUT: expunges the mail file, and logs you out of the system. 
MARK: sets the seen bit of selected messages. 


MOVE: copies selected messages to the end of given file and sets a delete bit to the 
selected messages. 


NET-MAIL: tries to send queued mail, if any. 
NEXT: types the next message if undeleted, and makes it the current message. 


PREVIOUS: types the previous message if undeleted, and makes it the current 
message. 


PROFILE: allows you to establish values for a basic set of variables to adjust MM’s 
environment to your preference. 


PUSH: gives you a fresh EXEC after placing the current job in an inferior fork. 
QUIT: halts MM without removing deleted messages in the current maul file. 
READ: allows you to enter READ mode. 

REMAIL: allows you to resend selected messages without comments. 

REPLY: allows you to respond each selected message individually. 
REPLY-TO: adds the address to the "Reply-To:" field for all outgoing messages. 


RESTORE-DRAFT: enters SEND-mode with resetting the outgoing message fields 
to the values of the message draft saved in the given file. 


SEND: allows you to enter SEND-mode. 

SET: allows you to change the value of the selected variable for this session. 
SHOW: shows the current MM variable settings. 

SORT: reorders the selected messages chronologically by date of composition. 
STATUS: tells you relevant information and statistics of the current mail file. 
SYSTEM-MSGS: is the same as GET SYSTEM:MAIL.TXT. 1 


TAKE: allows you to change the input source from the terminal to the file. 


TYPE: shows the selected messages, considering the variables only-type-headers, 
and dont-type-headers and sets the seen bit. 


UNANSWER: removes the ANSWER bit from the selected messages. 
UNDELETE: removes the DELETE bit from the selected messages. 
UNFLAG: removes the FLAG bit from the selected messages. 


UNKEY WORDS: removes the given keyflag and keywords from the "Keywords:" 
field of selected messages. 


UNMARK: removes the SEEN bit from selected messages. 


VERSION: gives the version number and configuration of MM. 
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IV. Implementation of the Tutor 


A. Data Structures and the System Environment 
This program has been developed on VAX 11/785 running the UNIX Operating 


System. It is written in C-Prolog, a Prolog interpreter written in C for 32 bit machines. 


The program uses code for means-ends analysis written by Prof. Rowe [Ref. 1]. 
Means-ends analysis tries to find a path from a starting state to a goal state, representing 
it by a sequence of operators. In our program, operators are the available commands in 
each mode. To reach the goal states, recommended operators are specified and 
preconditions are specified for each operator. Also, deletepostconditions and 
addpostconditions are defined for each operators. Lists hold the sequence of operators to 
be issued to perform a given task. Lists also represent preconditions and postconditions 


for each operator, the starting state, and the goal state. 


B. Structure of the program 

The program is divided into three modules. The problem domain module defines 
the tasks issued to the student to teach the TOPS20-MM facility. The tutor module 
implements various tutoring strategies. The TOPS20-MM module simulates the actual 
TOPS20-MM environment. 

1. Problem Domain Module 

Student tasks are divided into two groups: basic and advanced. Basic tasks 
teach the concept of domain levels and single basic commands in each level. The 
commands we chose are a subset of the commands described in previous chapter: 
to teach answer, copy, delete, exit, expunge, flag, forward, 


headers all, headers answer, headers current, headers delete, 
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headers flag, headers unseen, help, jump, list, logout, move, 
next, previous, quit, read, send, type, undelete, and unflag. 
2. Tutor Module 

The tutor issues tasks to the student and monitors the actions performed. Most 
of its code was written by Prof. Rowe. It contains an inference engine for means-ends 
analysis, tutoring strategies, an interface, a help facility, and utilities. The tutor issues a 
task, compares the student’s answer with the correct command figured out by the 
inference module, and gives the student appropriate assistance and corrects any errors. 
The tutor interacts with the student via the interface module and provides help with the 
help facility module. It executes commands the student types in by invoking the 


TOPS20-MM module, if it is a correct command. 


For example, in order to send a message, a user must type the command "send" 
to enter the SEND mode from MM or READ mode; "send" is thus an operator. Means- 
ends analysis requires clear definitions of the preconditions and postconditions for each 
operator. In this case, the precondition can be expressed by: 

precondition(command(mm,send),{level(mm)]) 
where the second argument is the precondition that the current level must be MM. After 
an operator has been applied, it must delete previous conditions which are no longer true 
and add new conditions that became true. These can be represented by: 

deletepostcondition(command(mm,send),{level(mm) }) 
and 

addpostcondition(command(mm,send),[level(send),issued_command(mm,send)]), 
respectively. The recommended operator to reach a goal state is represented by: 
predicate "recommended" as in 

recommended ([level(send)],command(mm,send)) 


which can be read as “In order to reach the state where the current level is SEND, try to 
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issue a send command from the MM level.” Means-ends analysis figures out the required 


sequence of operators to accomplish a task by using these conditions. 


After issuing the task and receiving a command from the student, the tutor uses 
some of the teaching strategy rules in metutor9 module written by Prof. Rowe to decide 
what actions to take according to the student’s input, plus some code of my own. If the 
received command was invalid, the tutor checks for minor errors such as mistyping or 
transposition of characters in a command. It infers the correct command if it recognizes 
one difference in character string of the received command from a valid one, if by 
changing the positions of two adjacent characters in the string; then it will ask the student 


if it can correct the command. 


A subroutine called "niceread" has been written by Prof. Rowe to make input 
and output process a little easier. The tutor will recognize input when the user hits the 
retum key without an extra period. When the tutor must talk to the student while he/she 


is inside the environment of the TOPS20-MM, the words are preceded by “TUTOR:" 


A help facility can show the available commands at each level and explain the 
functions of each command, when requested by the student typing "?” or "help". The 
student can also review the task by typing “task”. 

3. TOPS20-MM Module 

When the student types a correct command, the tutor passes it and the current 
level to the TOPS20-MM module for execution. For example, after a “send” command, 
it executes the action rule whose left hand side is action(mm,send) and performs the 
function of the command. It then enters the ""To:” level and waits for the address of the 


receiver. 


Our program differs from the actual TOPS20-MM in the usage of the escape 


character. MM allows the student to abbreviate a command by typing two or three 
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characters followed by an escape character, but it was hard to umplement and was 
discarded from this module. Instead, the exact commands were required to execute the 


system. 
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V. CONCLUSIONS 


We built a computer tutor to teach part of MM. We showed it was possible to 
provided an efficient working environment for a student to leam the usage of MM by 
issuing the commands and seeing results. Since the time was limited, only a part of MM 


was addressed. 


“Is it cost effective?" is an important question when developing an ICAI system. 
TOPS20-MM is the most-used service provided in the Defense Data Network. Since 
teaching TOPS20-MM isn’t complex, a computer tutor can save much time and effort of 


a teacher as well as a student. 


The program didn’t cover all of MM, but it demonstrated that artificial intelligence 
can be added to computer aided-instruction to provide a better system. It could correct 
typing errors and misconceptions in level, precondition violations, and other more subtle 
errors. The program could be improved by providing a complete simulation of MM, and 


more tutoring strategies, and computer graphics. 


Pe 


APPENDIX A - DEMONSTRATION 


Tutor: Hi, what is your name? Kim 
Tutor: Nice to meet you, Kim. 


Welcome to TOPS20 MM Self-learning course. 
Type "?" for the available conmands 
or "? task" for the current task. 


Tutor: We are now at the top level mode. 
Your fisrt exercise is to invoke the MM. 


%m 


A.IS].EDU.#Internet MM-20 6.1(1145) 
Last read: 5-Jun-88 11:15:20 12 messages, 40 pages 
3 messages unseen; 2 deleted 


U 10 5-Jul Tutor Exercise #10 
U 11 7-Jul Tutor Delete this file 
U 12 10-Jul Gen. X Task #12 


Tutor: Good. Now, we are at the MM mode. 
Lets browse the headers of the current message in the mail box. 


Mve ? 


Following are the possible conmands at nm level: 


answer headers all list send 
copy headers current logout type 
delete headers delete move undelete 
exit headers flag next unflag 
expunge headers unseen previous 

fiag help quit 

forward jump read 


Mve headres current 
Ooops! You mean “headers current"? yes 


U 12 10-Jul Gen. X Task #12 


Tutor: O.K. 
Lets browse the content of the current message. 


Mve type 


Message 12 

Mail _From: Gen. X 
Date: 

Subject: Task #12 
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To: Kim 

This is the content of message number 12. 

Since you have seen this message, the unseen flag will be removed. 
Tutor: Now, go back to the top level again. 
MVP quit 
Tutor: All right. We came back to the TOP level. 

Now, lets browse all the headers of messages in the mail box. 

headers all 
Ooops! You can issue a “headers all” command only in the "MM" level. 
Try again. 
Jann 
A.ISI.EDU.#Internet MM-20 6.1(1145) 

Last read: 5-Jun-88 11:15:20 12 messages, 40 pages 


2 messages unseen; 2 deleted 


U 10 §-Jul Tutor Exercise #10 
U 11 7-Jul Tutor Delete this file 


MVb headers all 


FLAG NOMBER DATE AUTHOR SUBJECT 
1 25-Jun Tutor Exercise #1 
2 27-Jun Gen. X Task #2 
D 3 28-Jun Tutor Garbage 
A 4 29-Jun Gen. Z Reply Needed 
r 5 30-Jun Tutor Special Note 
6 1-Jul Tutor Exercise #6 
A 7 30-Jun Gen. Z Reply Needed 
D 8 3-Jul Somebody Another Garbage 
E 9 5-Jul Gen. S Another Special Note 
U 10 5-Jul Tutor Exercise #10 
U 11 7-Jul Tutor Delete this file 
lz 10-Jul Gen. X Task #12 


Tutor: Now, list all the headers of flagged messages in the mail box. 
MvP jeaders flag 


Ooops! You mean “headers flag"? y 


FLAG NUMBER DATE AUTHOR SUBJECT 
E 3) 30-Jun Tutor Special Note 
E 9 5-Jul Gen. S Another Special Note 
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Tutor: Good. Now, set the flag on the message number 12. 
Mvp flag 


Message number to be flagged? 12 


Tutor: O.K. Now, list all the headers of flagged messages again. 


MvP headers flag 


FLAG NUMBER DATE AUTHOR SUBJECT 
F 5 30-Jun Tutor Special Note 
F 9 5-Jul Gen. S Another Special Note 
F 12 10-Jul Gen. X Task #12 


Tutor: List all the headers of the unseen messages in the mail box. 


Mvp headers unseen 


FLAG NUMBER DATE AUTHOR SUBJECT 
U 10 5-Jul Tutor Exercise #10 
U 11 7-Jul Tutor Delete this file 


Tutor: All right. 
Now, lets browse the message number 10. 


MvP type 10 

Message 10 

Mail From: Tutor 
Date: 

Subject: Exercise #10 
To: Kim 


This is the content of message number 10. 


Tutor: Now, jump to the message number 7 in the mail box. 


Mv jump 7 


Tutor: All right. 
Now, lets browse the current message in the mail box again. 


Mv type 


Message 7 

Mail From: Gen. Z 
Date: 

Subject: Reply Needed 
To: Kim 
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This is the content of message number 7. 


Tutor: Good. 
Now, browse the next message in the mail box. 


Mve next 

Message 8 

Mail From: Somebody 
Date: 

Subject: Another Garbage 
To: Kim 


This is the content of message number 8. 


Tutor: Now, browse the previous message in the mail box. 
MVP previuos 


Ooops! You mean "previous"? y 


Message 7 

Mail From: Gen. Z 
Date: 

Subject: Reply Needed 
To: Kim 


This is the content of message number 7. 


Tutor: Good. Now, send a message to M@SRI-KL. 


Tutor: Now, browse the previous message in the mail box. 


Mv previous 


Message 11 

Mail_From: Tutor 

Date: 

Subject: Delete this file 
To: Kim 


This is the content of message number I1. 


Tutor: Good. Now, send a message to M@SRI-KL. 


Mve send 

To: X@SRI-KL 
Cc: yee,liang 
Subj: Good news 
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Message (end with ESCAPE or CIRL-D or CIRL-Z): This is my first message. 
S>send 


Tutor: Exellent. 
Now, send a message to the address in message 6 


MVP type 6 


Message 6 

Mail From: Tutor 
Date: 

Subject: Exercise #6 
To: Kim 


Send a message to GK@NPS.ARPA. 


MVP send 

To: GK@NPX.ARPA 

Cc: metin 

Subj: Task 

Message (end with ESCAPE or CIRL-D or CTRL-Z): I got it, sir. 
S>send 


20 


APPENDIX B - SOURCE PROGRAMS 


[AREER ERE REE EEE EERE REE EREEE EE EHH / 


le 7 
/* Module Name: TOPS20-MoM aa | 
i */ 
/* Author: Capt.Taewoo Kim, ROKA ~/ 
a a 


eee TREE EEE SE REESE EE Ee ETE SSeS / 


/* TOP conmands. */ 


action(top,help) :- respond_help(top). 
action(top,?) :- respond_help(top). 
action(top,logout) :- halt. 


/* topaction(’mm’) */ 

action(top,nm) :- change_level(nm), 
date(Date) ,time(Time), 
countup_messages(message(X,A,B,C,D,E) ,M), 
countup_unseen(message(u,A,B,C,D,E) ,U), 
countup_deleted(message(d,A,B,C,D,E) ,Del), 
nil ,write(°A.ISI.EDU.#Internet MM-20 6.1(1145)’), nl, 
write(’ Last read: °),write(Date) .write(Time) ,write(M), 
write(’ messages,’),write(’ 40 pages ‘), nl, 
write(U) ,write(’ messages unseen; *),write(Del), 
write(’ deleted’),nl,nl, 
headers_unseen. 


headers_unseen :- 
message(u.A,B,C,D,E), write_body(A,B,C,D,E), fail. 
headers_unseen. 


date(’ 5-Jun-88 '). 
time(’ 11:15:20 °). 


action(X,trace) :- trace. 
action(top,X) :- check_error(top,X). 


/* MM level conmands. */ 


/* mmaction( answer’) */ 
action(mm,answer) :- respond_answer. 


/* mmaction( copy’) */ 
action(mm,copy) :- respond_copy. 


/* mmaction( delete’) */ 

action(mm,delete) :- nl, 
write( ‘Message number to be deleted? °),niceread(Num) ,nl, 
convert (Num,Int), 
message(X,A,Int,C.D,E),retract(message(X,A,Int ,.C,D,E)), 
asserta(message(d,’ D ‘°,Int,C,D,E)),nl,sort_messages. 


/* mmaction(‘exit'’) */ 
action(nm,exit) :- erase_deleted. 


/* nmaction('’expunge’) */ 
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action(mm,expunge) :- erase_deleted. 


erase_deleted :- nl,retract(message(d,A,B,C,D,E)),fail. 
erase_deleted. 


/* mmaction('flag’) */ 

action(mm,flag) :- nl, 
write( ‘Message number to be flagged? °),niceread(Num),nl, 
convert(Num, Int), 
message(X,A,Int,C,D,E),retract(message(X,A,Int ,C,D,E)), 
asserta(message(f,’ F’ ,Int ,C,D,E)),nl,sort_messages. 


/* mmaction(’ forward’) */ 

action(nm,forward) :- nl, 
write( 'Message number to be forwarded? '), 
niceread(Num) ,nl,convert(Num,Int), 
message(X,A,Int .C,D,E), 
asserta(fmessage(X, ’ FE’ Int,.C.D. EB) ) onl: 


/* mmaction(’*headers all’) */ 
action(nm, headers all’) :- 
write_title, headers_all. 
headers_all :- 
message(X,A,B,C,D,E), 
((X = 0, B < 10, write(’ "), write(B), tab(4), write(C), tab(4), 
write(D), tab(4), write(E),tab(4),nl1); 
(X = 0, B > 9, write_body(A,B,C,D,E); 
(X=a :X=d;X=f ;X=u), write_body(A,B,C,D,E))), fail. 
headers_all. 


/* mmaction(’*headers answer’) */ 
action(nm, headers answer’) :- 
write_title, headers_answer. 
headers_answer :- 
message(a,A,B,C,D,E), write_body(A,B,C,D,E), fail. 


headers_answer. 


/* mmaction( headers current’) */ 
action(nmm, ‘headers current’) :- current_msg(QWN), 
message(X,A,QVWN,C,D,E), write_body(A,QWN,C,D,E). 


/* mmaction(’headers delete’) */ 
action(nm, headers delete’) :- 
write_title, headers delete. 
headers_delete :- 
message(d,A,B,C,D,E), write_body(A,B,C,D,E), fail. 


headers_delete. 


/* mmaction(’headers flag’) */ 
action(nm, headers flag’) :- 
write_title, headers_flag. 
headers_flag :- 
message(f,A,B,C,D,E), write_body(A,B,C,D,E), fail. 
headers_flag. 


/* mmaction(’ headers unseen’) */ 
action(nm, headers unseen’) :- 

write_title, headers_unseen. 
headers_unseen :- 


message(u,A,B,C,D,E), write_body(A,B,C,D,E), fail. 


22 


headers_unseen. 


Mrrte tithe <-- nl, 


write(’ FLAG NUMBER DATE AUTHOR SUBJECT’), ni. 


write_body(A,B.C,D,E) :- 
write(A),tab(4), write(B),tab(4), 
write(C),tab(4), write(D),tab(4) write(E),nl. 


/* mmaction(’help’) */ 
action(mm,help) :- respond_help(nm). 
action(mm,?) :- respond_help(nm). 


action(Level.Help) :- long _help_command(He!lp,Command) , 
give_def(Level ,Conmand). 


/* mmaction(’ jump’) */ 

action(mm,JC) :- long_jump_conmand(JC,NM), 
NM > 1, NM < 13, !, 
current_msg(CM), retract(current_msg(CM)), 
asserta(current_msg(NM)). 


action(mm,JC) :- long_jump_command(JC,NM), 
write('Message °), write(NM). write(* does not exist.'). 


/* mmaction( list’) */ 
action(mm,list) :- respond_list. 


/* nmmaction(’ logout’) */ 
action(mm,logout) :- mmaction(expunge), halt. 


/* mmaction( move’) */ 
action(nm,move) :- respond_move. 


/* mmaction(’ next’) */ 


action(mm,next) :- current_msg(K), K < 12, retract(current_msg(K)), 
Kpl is K+l, asserta(current_msg(Kpl)), print2(Kpl). 
action(nm,next) :- write( Message currently ends at number 12’). 


/* mmaction( previous’) */ 
action(nm,previous) :- current_msg(K), K > 1, retract(current_msg(K)), 
Kml is K-1. asserta(current_msg(Kml)), print2(Kml!). 
action(mm,next) :- write(’Message starts from number 1°). 


/* mmaction(’ quit’) */ 
action(mm,quit) :- change_level(top). 
action(nmm,q) :- change_level(top). 


/* mmaction( type’) */ 

action(mm,type) :- current_msg(K), print2(K). 

action(mm,C) :- current_msg(K3), retract(current_msg(K3)), 
long_type_command(C,K), asserta(current_msg(K)), print2(K). 


/* mmaction(’undelete’) */ 

action(nmm,undelete) :- nl, 
write( ‘Message number to be undeleted? '), 
niceread(Num) ,nl,convert(Num,Int), 
message(d,A,Int,B,D,E),retract(message(d,A,Int ,B,D,E)), 
asserta(message(0,0,Int,B,D,E)).nl, 


sort messages. 
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/* mmaction(‘unflag’) */ 

action(nm,unflag) :- nl, 
write( ‘Message number to be unflagged? ’), 
niceread(Num) ,nl ,convert(Num, Int), 
message(f,A,Int,B,D,E),retract(message(f,A,Int,B,D,E)), 
asserta(message(0,0,Int,B,D,E)),nl, 


sort_messages. 


/* Check eror */ 
action(mm,X) :- check_error(nm,X). 


/* Commands at SEND level */ 


/* sendaction(’display’) */ 
action(send,display) :- send_display. 


/* sendaction(‘erase’) */ 
action(send,erase) :- send_erase. 


/* sendaction(’help’) */ 
action(send,help) :- respond_help(send). 
action(send,?) :- respond_help(send). 


/* sendaction( send’) */ 
action(send,send) :- send_send. 


/* sendaction(’quit’) */ 
action(send,quit) :-change_level (nm). 
action(send,q) :- change_level (mm). 


/* sendaction('type’) */ 
action(send,type) :- send_type. 


/* Illegal commands */ 
action(send,X) :- error(X). 


/* Print the requested message. */ 


print2(Num) :- message(X,A,Num,C.D,E),n1,nl, 
write( ‘Message ’),write(Num),nl, 
write(’Mail_ From: °*),write(D),nl, 
write(’Date: *),nl, 
write(’Subject: °),write(E),nl, 
write(’To: °),user(Name) ,nwrite(Name),nl,nl, 
message _content(Num,Content) ,write(Content),nl, 
check_Flag(Flag,A,Num,C,D,E), 


sort_messages, !. 
check_flag(u,A,Num,C,D,E) :- 
retract(message(u,A,Num,C,D,E)), 
asserta(message(Q,’ * ,Num,C,D,E)). 
check_flag(X,.A,Num,C,D,E). 
/* count the number of each messages */ 
countup_messages(message(X,A,B,C,D,E) .M) :- asserta(counter(0)), 


call(message(X,A,B,C,D,E)), counter(K), retract(counter(K)), 
K2 is K+l, asserta(counter(K2)), fail. 
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countup_messages(message(X,A,B,C,D,E) ,M) :- counter(M), retract(counter(M)), 


countup_unseen(message(u,A,B,C,D,E),U) :- asserta(counter(0Q)), 
call(message(u.A,B,C,D,E))., counter(K), retract(counter(K)), 
K2 is K+l, asserta(counter(K2)), fail. 
countup_unseen(message(u,A,B,C,D,E) ,U) :- counter(U), retract(counter(U)),!. 


countup_deleted(message(d,A,B,C,D,E) ,Del) :- asserta(counter(0Q)), 
call(message(d,A,B,C,D,E)), counter(K), retract(counter(K)), 
K2 is K+l, asserta(counter(K2)), fail. 
countup_deleted(message(d,A,B,C,D,E) ,Del) :- counter(Del), 
retract(counter(Del)),!. 


/* CODES FOR SEND OP. */ 


action(mm,send) :- change_level(to). 

action(to,X) :- asserta(receiver(X)), !. 

action(cce,X) :- asserta(ccreceiver(X)), !. 

action(subject ,X) :- asserta(message_subject(X)), !. 

action(message,X) :- asserta(message(X)), !. 

action(ready_to_send,send) :- last_sent_msg(LSM), 
current _date(CD), receiver(Rname), message(M), 
assertz(sent_message(s,’ > LSM, Date ,.Rname ,M) ), 
retract(last_sent_msg(LSM)), NLSM is LSM + 1, 
assertz(last_sent_msg(NLSM)), retract(receiver(Rname)), 
retract(ccreceiver(CCR) ), retract(message(M)), 
retract(message_subject(MS)), !. 


current_date(’ 14-Apr-88 °). 
/* sorts messages with message number */ 


sort_messages :- bagof(N,A°B°C°D’E’message(A,B,N,C,D,E) ,L), 
sort(L,SN), sort1(SN),!. 


sortl(SN) :- first(SN,F) ,message(A,B,F,C,D,E),retract(message(A,B.F,C,D,E)), 


assertz(message(A,B,F,C,D,E)),delete(F,SN,NSN),sort1 (NSN). 
sort1(SN). 


first( {XIL],X). 
delete(X,[]),.[]). 
delete(X,[X!L].M) :- !, delete(X,L.M). 
delete(X,[YIL]),[YIM]) :- delete(X,L,M). 


/* read in each character and convert it into list of ASCII codes */ 
/* until carriage return is pressed. */ 


niceread(L) :- checkretract(readbuff(L2)), asserta(readbuff([])), 
niceread2(L),!. 
niceread2(L) :- getO(C), niceread3(C.L). 
/* niceread3(32,L) :- niceread2(L). <== ignore the spaces. */ 
niceread3(10,L) :- !, readbuff(L2), reverse(L2,L). 
niceread3(C,L) :- readbuff(L3), retract(readbuff(L3)), 
asserta(readbuff([C!L3])), niceread2(L). 


checkretract(S) :- cal1l(S), retract(S), !. 


ZS 


checkretract(S). 


reverse(L,R) :- reverse2(L,[],R). 
reverse2({],L,L) :- !. 
reverse2([XIL],R,S) :- reverse2(L,[XIR],S). 


convert(([CIT],Int) :- T = [],Int is C-48. 
convert(({CIT],Int) :- T >47, T < 58, Int is (((C-48)*10)+(T-48)). 
convert({CIT],Int) :- nwrite([(CIT]) ,write(’ <== Invalid input!’),nl. 


/* code for reading the message user types in as a list of lists. */ 


read _message(L) :- 
write(’Please type your message; terminate with a control-X.’), nl, 
write(’ and a carriage return.’), nl, 
read_message2(L). 

read_message2([XIL]) :- nmiceread(X), read_message3(X,L). 

read_message3(X,[]) :- termination(X), !. 

read_message3(X,L) :- read_message2(L). 

termination(L) :- last(L,24). 

last([X]),X) :- !. 

last( (XIL),Y) :- last(L,Y). 


/* write the message list ==> each sublist as a separate line. */ 
write _message([]) :- !. 
write_message([XIL]) :- writel(X), nl, write_message(L). 


writel([]). 
writel((XILILI1]) :- put(X1), writel(Ll). 


/* write the list of ASCII code into character string. */ 
nwrite([]). 
nwrite({XIR]) :- put(X), nwrite(R). 


/* message headers */ 


message(0O,’ 7 ,1,°25-Jun’ , Tutor >, Exercise #1’). 
message(0,° ",2,°27-Jun’ ,’Gen. X >, ’Task #2°). 
message(d,” D *,3,°28-Jun’,’ Tutor , Garbage’). 
message(a,’ A °,4,°29-Jun’,’Gen. Z ", Reply Needed’). 
message(f,’ F °,5§,°30-Jun’,’ Tutor ", Special Note’). 
message(Q,’ °,6,°’ 1-Jul’,’ Tutor >  *Exercise #6’). 
message(a,’ A '°,7,°30-Jun’,’Gen. Z ’, Reply Needed’). 
message(d,* D ",8,' 3-Jul’,’Somebody °°, ’Another Garbage’). 
message(f,’ F’,9,’ §-Jul’,’Gen. S *, Another Special Note’). 
message(u, 'U °,10,° S-Jul’,’Tutor >, ’Exercise #10’). 
message(u, 'U *,11,° 7-Jul’,’Tutor °, Delete this file’). 


message(u, 'U ",12,°10-Jul’,’Gen. X >, Task #12’). 


/* contents of messages */ 


message _content(1,’ This is the content of message number 1.’). 
message_content(2,° This is the content of message number 2.’). 
message_content(3,’ This is the content of message number 3.”’). 
message_content(4,' This is the content of message number 4.’). 
message_content(5,° This is the content of message number 5.’). 
message_content(6,° Send a message to GK@NPS.ARPA.’). 

message _content(7,’ This is the content of message number 7.°). 
message _content(8,° This is the content of message number 8.°). 
message _content(9,' This is the content of message number 9. ‘). 


message_content(10,° This is the content of message number 10.’'). 
message_content(1l1l,’ This is the content of message number I1.’). 
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message_content(12,’ This is the content of message number 12. 
Since you have seen this message, the unseen flag will be removed.’). 


space!(™ '). 
Epace2(@™ ). 
spacei(' se 
space4(' pinios 
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i= a 

/* Module Name: TUTOR aa 

i ey 

ie Author: Prof. Neil C. Rowe ef 

[= */ 

[FORO IORI IORI CIO IOIIOIIOIOIOI ICICI OIC ICICI IIIT / 

/* Problem-independent code for "means-ends tutoring”: tutoring for */ 
[3 learning of sequences modelable by means-ends analysis. */ 


/* For an application, you must define: */ 
/* (1) reconmended(<difference>,<operator>) --recommendation conditions */ 
/* (2) precondition(<operator>,<factlist>) --precondition facts */ 


/* (3) deletepostcondition(<operator>,<factlist>) or 7 

[e deletepostcondition(<operator>,<conditionlist>,<factlist>) */ 

/* --gives facts deleted by op.; 3-arg. form requires additional facts true */ 
/* (4) addpostcondition(<operator>,<factlist>) or ay 

i addpostcondition(<operator>,<conditionlist>,<factlist>) =) 

/* --gives facts added by op.; 3-arg. form requires additional facts true */ 
/* Some optional definitions you may include: wi | 

/* (5) randsubst(<op.>,[<substlistl>,<substlist2>,...]) */ 

/* --gives random-substitution triples or quadruples, each in the form: */ 

jee [<initial-fact>,<ending-fact>,<transition-prob.>,<message to user> */ 

he Note: first and second arguments can be the word "none"; ay 

i fourth argument is optional. */ 

/* (6) nopref(<operatorl>,<operator2>) --if the order (priority) of two */ 

[Ts operators in the "“reconmended” rules was arbitrary, include this fact */ 
/* (7) intro(<text>) --introductory info for student */ 


/* (8) debugflag --if asserted, debugging info printed re means-ends anal. */ 


tutor(State ,Goal) :- 
not(check_obvious_errors), issue_warnings, randinit, 
uniqueassert(top_goal(Goal)), 
bagof(X,P°precondition(X,P) ,XL), uniqueassert(op_list(XL)), 
once_means_ends(State,Goal ,Oplist2 ,Goalstate2), 
uniqueassert(top_solution(Statelist)), abolish(mainline_states,4), 
means_ends_tutor(State,Goal ,Oplist ,Goalstate,[]), 
nl, nl, !. 


tutor(State ,Goal) :- 
write('’Too bad: a solution is now impossible.’), nl, !. 


means_ends_tutor(State,Goal,[],State,Stack) :- difference(Goal ,State,[]), !. 
means_ends_tutor(State,Goal ,Oplist ,State,Stack) :- member([State,Goal] ,Stack), 
.. faad. 


means_ends_tutor(State,Goal ,Oplist,Goalstate,Stack) :- 
not(once_means_ends(State,Goal ,Oplist,Goalstate)), !, fail. 


means_ends_tutor(State,Goal ,Oplist ,Goalstate,Stack) :- 
difference(Goal ,State,D), 
applicable_op(D,Op), 
precondition(Op,Prelist), 
all_achievable(State,Prelist), !, 
means_ends_tutor(State,Prelist,Preoplist,Prestate,[[State,Goal]IStack]), 
!, met(State,Goal ,Oplist ,Goalstate,Stack,Prelist,Preoplist ,Prestate,Op,D). 
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miet(State Goal ,Preoplist ,Prestate ,Stack,Prelist ,Preoplist,Prestate,Op,D) : - 
difference(Goal,Prestate,[]), !. 


met(State ,Goal ,Oplist ,Goalstate,Stack,Prelist ,Preoplist,Prestate,Op,D) :- 
difference(Goal,Prestate,D2), not(applicable_op(D2,Op)), !, 
means_ends_tutor(Prestate Goal ,Oplist2,Goalstate,[]), 
append(Preoplist ,Oplist2,Oplist). 


met(State,Goal ,Oplist ,Goalstate,Stack,Prelist,Preoplist,Prestate,Op,D) :- 
check_with_student(Op,Prestate ,D,NewOp), 
get_deletepostcondition(NewOp,Prestate ,Deletepostlist), 
deleteitems(Deletepostlist,Prestate ,Prestate2), 
get_addpostcondition(NewOp,Prestate,Addpostlist), 
union(Addpostlist,Prestate2,Postlist2), 
do_randsubst(NewOp,Postlist2,Postlist), 
check_mainline_return(Postlist), !, 

/* Note last arg. below empty to allow for randsubst returning to past state */ 
means_ends_tutor(Postlist,Goal,Postoplist ,Goalstate,[]), 
append(Preoplist,[NewOp!Postoplist] ,Oplist). 


do_intro :- intro(T), write(T), nl, !. 
do_intro. 


/* Problem-definition errors */ 


check_obvious_errors :- setof((M,A],obvious_error(M,A) ,MAL), !, 
writepairlist (MAL). 


obvious_error( precondition fact missing for operator ’°,O) :- 
reconmmended(D,O), not(precondition(O,L)). 


obvious_error('deletepostcondition fact missing for operator ’,O) :- 
reconmended(D,O), not(get_deletepostcondition(O,S,L)). 


obvious_error(‘addpostcondition fact missing for operator *,QO) :- 
reconmended(D,O), not(get_addpostcondition(O,S,L)). 


obvious_error(' "recommended" fact missing for operator ',O) :- 
precondition(O,L), not(reconmended(D,O)). 

obvious_error(’ "recommended" fact missing for operator *,O) :- 
get_deletepostcondition(O,S,L), not(reconmmended(D,O)). 
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obvious_error(’"“reconmended" fact missing for operator *,O) :- 
get_addpostcondition(O,S,L), not(recommended(D,O)). 


issue_warnings :- setof([M,A],possible_error(M,A) ,MAL), !, 
write( ‘Warnings:’), nl, writepairlist(MAL), nl. 


issue_warnings. 


possible_error(’This fact is not creatable: °,F) :- precondition(O,PL), 
backtracking member(F,PL), uncreatable(F). 


writepairlist([]). 
writepairlist([[X,YJ!L])) :- write(X), write(Y)., nl, writepairlist(L). 


/* Handling of randomness */ 


do_randsubst(O,S,NS) :- randsubst(O,RL), !, do_randsubst2(RL,S,NS). 
do_randsubst(O,S,S). 
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do_randsuts (ZC [|]. S557 

do_randsubst2([[F,NF,PJ!ILJ],S,NS) :- random(1000,K), P1000 is P*1000, 
K=<P1000, changestate(F,NF,S,S2), !, do_randsubst2(L,S2,NS). 

do_randsubst2([[F,NF,P,MJ]!IL],S,NS) :- random(1000,K), P1000 is P*1000, 
K=<P1000, changestate(F,NF,S,S2), !, write(M), nl, do_randsubst2(L,S2,NS). 

do_randsubst2([CIL],S,NS) :- do_randsubst2(L,S,NS). 


changestate(none,NF,S,[NFIS]) :- !, not (member(NF,S)), 
write( Random change made: ’), nl, !. 
changestate(F,none,S,S2) :- !, member(F,S), 
write( Random change made: '), nl, !. 
changestate(F.NF,S, [NFIS3]) :- !, member(F,S), 


write(’Random change made: yeni 


permutation([].[]) :- !. 
permutation(L,{I1PL]) :- randitem(L,I), delete(I,L,L2), permutation(L2,PL). 


randitem(L,I) :- length(L,N), random(N,K), item(K,L,I). 


randinit :- C is cputime*1000, FC is floor(C), S is FC mod 2311, 
uniqueassert(randseed(S)). 


random(N,K) :- randseed(S), nextrand(S,NS), K is NS mod N, 
retract(randseed(S)), asserta(randseed(NS)). 


nextrand(S.NS) :- FIC is 100*cputime, IC is floor(FIC), 
S2 is ((S*S)+IC) mod 2311, S3 is (S2*S2) mod 2311, NS is (S3*S) mod 2311. 


item(K,.[].1) :- !, fail. 
item(K, [XIL],X) :- K=<1, !. 
item(K, [XIL],Y) :- Kml is K-1, item(Km1,L,Y). 


/* Tutoring rules */ 
/* handle_student_op rules have been added to the original code */ 


check_with_student(O,S,D,NO) :- 
member(level(Current_Level),S), 
termprompt (Current _Level,P), write(P), 
niceread(LConmand) ,name(SConmand ,LConmand) , 
O2 =.. [command ,Current_Level ,SConmand], 
handle_student_op(0O2,0,S,D,NO), !. 


handle_student_op(O,0,S,D,O) :- O =.. [P,CL,03], !, action(CL,O3), !. 


handle_student_op(02,0,S,D,NO) :- O02 =.. [P,CL,C], helpword(C), !, 
respond_help(CL), !, check_with_student(O,S,D,NO). 


handle_student_op(O2,0,S,D,NO) :- O02 =.. [P,CL,C], help_task(C), !, 
check_with_student(O,S,D,NO). 


handle_student_op(O2,0,S,D,0) :- O2 =.. [P,L,C], mstop(C),!, halt. 
handle_student_op(O02,0,8,D,0) :- O2 = {[P,L,C], mabort(C),!, abort. 
handle_student_op(O02,0,S,D,NO) :- O2 = [P,L,C]. mtrace(C),!, trace, 
check_with_student(O,S,D,NO). 

handje_student_op(O2,0,S,D,NO) :- level(Level), check_error(Level ,O2,NO),!, 


check_with_student(O,S,D,NO). 
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handle_student_op(O2,.0,S,D,NO) :- op_tist(OL), not(singlemember(O2,OL)), !, 
write( Tutor: Not a valid operator--please choose one of the following: °‘), 
level(CL), 
respond_help(CL), check_with_student(O,S,D,NO). 


handle_student_op(O2,0,S,D,NO) :- precondition(O2,PO2), difference(PO2,S,D2), 
not(D2=[]), !, write(’Tutor: That operator requires that °), 
writelist(D2,precond), write(’.’), nl, 
check_with_student(O,S,D,NO). 


handle_student_op(02,0,S,D,NO) :- apply_op(O2,S,S), 
write(’Tutor: That will not affect anything.’),nl, 
check_with_student(O,S,D,NO). 


handle_student_op(O2,0,S,D,NO) :- apply_op(02,S,S2), top_goal(G), 
not(once_means_ends(S$2,G,OL2,GS2)), !, 
write('Tutor: You cannot ever succeed if you do that.’), nl, 


check_with_student(O,S,D,NO). 


handile_student_op(0O2,0,S,D,02) :- top_goal(G), apply_op(O,S,S3), 
apply_op(O2,S,S2), compare_solutions(S3,G,OL3 ,GS3 ,S2,G,OL2 ,GS2), 
subsequence( [{O!lOL3],OL2), !, apply_ops( [OIOL3] ,S,SL,GS4), 
elimdups(SL,ESL), asserta(mainline_states(ESL,O2,S,0)), 
write('Tutor: That does not seem inmediately helpful, but I will try it.’), 
mipwoOz =.) |P-CL{O3]. !. saction(CL,O3). 


handle_student_op(O2,0,S8,D.02) :- (nopref(O2,0):nopref(O,02)), !, 
ere O.K.’), onl, O2=..[P,CL,O3], action(CL,O3). 


handle_student_op(O02,0,8,D,02) :- top_goal(G), 
once_means_ends(S,G,OL,FS), not(member(O2,0L)), !, 
write(’Tutor: I will try it, but it is not recommended for the problem.’), 
nee eer CL O35), !, -action(CL703). 


handle_student_op(02,0,S,D,02) :- top_goal(G), difference(G,S,.D2), 
all_achievable(S,D2), applicable_op(D2,03), precondition(O3,PL), 
least_conmon_op(S,G,0,02,PL,Groot), !, 
write(’Tutor: J] will try it, but it is not reconmended first when '), 
difference(Groot,S,D5), delete_uncreatable(D5,D6), 
pemutation(D6,D7), write!tist(D7,precond), write(’.’), nl, 
@2-—.. 4P,.CL.O3], !, 
action(CL,O3). 


handle_student_op(0O2,0,S,D,02) :- 
write(’Tutor: Not the operator J] would choose, but let us try it.’), nl, 
O2e—.7 WF ,CL.0O3].,. !, 
action (Cl,O3). 


termprompt(top,’'%’ ). 

termprompt(nm, ‘MVP '). 

termprompt(to,’To: ’). 

termprompt(cc,’Cc: '). 

termprompt(subject, Subj: °). 

termprompt(message, Message (end with ESCAPE or CTRL-D or CTRL-Z): °). 
termprompt(ready_to_send,'S>’ ). 


helpword(help). 


helpword(h). 
helpword(huh). 
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helpword(?). 
mstop(halt). 

mstop( logout). 
mabort(abort). 
help_task('?task’). 
mtrace(trace). 


/* Intermediate predicates used vy the tutor */ 


least_conmon_op(S,G,0,02 ,G2,G) >- once_means_ends(S,G2,0L,NS), 
(not (member(O,OL)); not (member(O2,0L))), !. 


least_conmon_op(S,G,0,02,G2 ,Droot) :- difference(G2,S,D), all_achievable(S,D), 
applicable_op(D,O0O3), precondition(03 ,G3), 
least_conmon_op(S,G2,0,02,G3,Droot), !. 


compare_solutions(S3 ,G,OL3 ,GS3 ,S2 ,G,OL2 ,GS2) :- 
once_means_ends(S3,G,0L3 ,GS3), 
once_means_ends(S2,G,OL2 ,GS2), !. 


cache_states(S,G,[{],GS) :- !. 

cache_states(S,G.OL,GS) :- cached(S,G,OL.GS), !. 

cache_states(S,G,OL,GS) :- cached(S2,G2,OL2,GS2), check_permmutation(S,S2), 
check_permutation(G.G2), !. 

cache_states(S,G, [OIOL] GS) :- asserta(cached(S,G, [OIOL] ,GS)), 
apply_op(O,S,NS), cache_states(NS,G,OL,GS), !. 


apply_ops({].S.({S],S) :- !. 

apply_ops([{OlIOL],S,{(SISL],NS) :- apply_op(O,S,S2), apply_ops(OL,S2,SL,NS). 

apply_op(O,S.NS) :- get_deletepostcondition(O,S,DP), deleteitems(DP,S,S2), 
get_addpostcondition(O,S,AP), union(AP,S2,NS), !. 


check_mainline_return(S) :- mainline_states(SL,O,OS,BO), 
check_mainline_return2(S,SL,0,0S,BO). 
check_mainline_return(S). 


check_mainline_return2(S,[S21SL],0,0S,BO) :- permutemember(S,[S2]), 
!, write(’You are returning to a previous state.’), nl. 


check_mainline_return2(S,SL,0,0S,BO) :- pemutemember(S,SL), !, 
write('Do you see now that your choice of the ’), write(O), 
write(’ action in the state with the facts [’), writelist(OS,state), 
write('] was not the best choice; the ’), write(BO), 
write(”’ action would have been better.’), nl, 
retract(mainline_states(SL,O,OS,BO)). 


/* Natural language output */ 


writelist({].R) :- !. 

writelist([{X],R) :- !, writefact(X,R). 

writelist({X,Y]}],R) :- !, writefact(X,R), write(’ and ’), writefact(Y,R). 

writelist(L,R) :- writelist2(L,R). 

writelist2([X],R) :- !, write(’and ’), writefact(X,R). 

writelist2({XIL].R) :- writefact(X,R), write(’, ’), writelist2(L.R). 

writefact(F,state) :- atom(F), write(F). write(* is true’), !. 

writefact(not(F),state) :- atom(F), !, write(F), write(’ is false’), !. 

writefact(not(F),state) :- F=..[P,X], atom(X), !, write(X), is_form(X,IX), 
write(IX), write(’not °’), write(P), !. 

writefact(not(F),state) :- F=..{P,X], !, writefact(X), is_form(X, IX), 
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mrmmte( IX), write(’not *), write(P), !. 

writefact(not(F),state) :- F=..[P,X,Y], !, write(X), write(’ not °), 
write(P), write(’ °), write(Y), !. 

writefact(F,state) :- F=..({P,X], atom(X), !. write(X), is_form(X, IX), 
write(IX), write(P), !. 

writefact(F,state) :- F=..[P,X], !, writefact(X,state), is_form(X, IX), 
write(IX), write(P), !. 

writefact(F,state) :- F=..({P,X,Y], !, write(X), write(’ °), 
write(P). write(’ °*), write(Y), !. 

writefact(F,precond) :- atom(F), write(F), write(’ must be true’), !. 

writefact(not(F),precond) :- atom(F), !, write(F), write(’ must be false’), !. 

writefact(not(F),precond) :- F=..[P,X], atom(X), !, write(X), 
write(’ must not be °’), write(P), !. 

writefact(not(F),precond) :- F=..({P,X], !, writefact(X,state), 
write(* must not be °), write(P), !. 

writefact(not(F),precond) :- F=..({P.X,Y], !, write(X), write(”’ must not be °), 
write(P), write(’ °), write(Y). !. 

writefact(F,precond) :- F=..[P,X], atom(X), !, write(X), 
write(*’ must be °), write(P), !. 

writefact(F,precond) :- F=..[P,X], !, writefact(X,state), 
write(’ must be °), write(P), !. 


writefact(F,precond) :- F=..[P,X,Y], write(X), write(’ must be °), write(P), 
write(’ °), write(Y), !. 
writefact(F,op) :- write(F), !. 


writefact(F,R) :- write(F). 

is_form(X,”’ is *) :- not(atom(X)), !. 

is_form(X,”’ are °*) :- name(X,NX), last (NX,115), !. 
is_form(X,’” is °). 


/* The original means-ends program (used for "what if” reasoning) */ 


once_means_ends(State,Goal ,Oplist ,Goalstate) :- 
means_ends(State,Goal ,Oplist ,Goalstate), 
cache_states(State,Goal ,Oplist ,Goalstate), !. 


means_ends(State,Goal ,Oplist ,Goalstate) :- 
means_ends2(State,Goal ,Oplist ,Goalstate,[]), writedebug?7. 


means_ends2(State,Goal ,Oplist ,Goalstate,Stack) :- 
cached(State2,Goal2,Oplist ,Goalstate), check_permutation(Goal ,Goal2), 
check_permutation(State ,State2), !, writedebug6(Stack), !. 


means_ends2(State,Goal ,Oplist ,Goalstate,Stack) :- member([State,Goal],Stack), 
!, writedebug4(Stack), fail. 


means_ends2(State,Goal ,[{],State,Stack) :- difference(Goal ,State,[]), !. 


means_ends2(State,Goal ,Oplist ,Goalstate,Stack) :- difference(Goal ,State,D), 
applicable_op(D,Operator), precondition(Operator,Prelist), 
all_achievable(State,Prelist), writedebugl!(D,Operator,Stack), 
means_ends2(State,Prelist ,Preoplist ,Prestate,[[State,Goal]!Stack]), 
writedebug2(Prestate,D,Operator,Stack), 
get_deletepostcondition(Operator,Prestate ,Deletepostlist), 
deleteitems(Deletepostlist,Prestate,Prestate2), 
get_addpostcondition(Operator,Prestate,Addpostlist), 
union(Addpostlist,Prestate2,Postlist), 
means_ends2(Postlist ,Goal ,Postoplist .Goalstate,{[State,Goal]|IStack]), 
writedebug3(Goalstate ,Operator,Stack), 
append(Preoplist,[Operator!Postoplist],Oplist). 
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means_ends2(State,Goal ,Oplist ,Goalstate,Stack) :- 
writedebug5(State,Goal ,Stack), !, fail. 


/* Debugging tools */ 


writedebugl1(D,O,Stack) :- not(debugflag), !. 

writedebugl1(D,O,Stack) :- length(Stack,Nml), N is Nmi¢l, write(’>>Operator °"), 
write(O), write(” suggested at level °), write(N),. nl, 
write(’to achieve difference of [°), writelist(D,state), write(’]’), nl, !. 


writedebug2(S.D,0O,Stack) :- not(debugfilag), !. 

writedebug2(S,D,O,Stack) :- length(Stack,Nml), N is Nnl+l, 
write(’>>Operator °), write(O), write(’ applied at level °), write(N), nl, 
write(’to reduce difference of [’), writelist(D,state), write(’]’), nl, 
write('in state in which ’), writelist(S,state), nl, !. 


writedebug3(S,O,Stack) :- not(debugflag), !. 
writedebug3(S,O,Stack) :- length(Stack.Nml), N is Nml+l, write(’>>Level °), 
write(N), write(*° terminated at state in which ’), writelist(S,state), nl, !. 


writedebug4(Stack) :- not(debugflag), !. 

writedebug4(Stack) :- 
write(*>>>>Reasoning found a potential infinite loop at level ’), 
length(Stack,Nml), N is Nml¢1, write(N), ni, !. 


writedebug5(State,Goal,Stack) :- not(debugflag), !. 

writedebugS(State,Goal Stack) :- write(’>>>>Unsolvable problem at level ’), 
length(Stack,Nml), N is Nml+l1, write(N), nl, write(’for state ’), 
writelist(State,state), nl, write(’and goal °), writelist(Goal,state), nl, !. 


writedebug6(Stack) :- not(debugflag), !. 
writedebug6(Stack) :- write(’>>>>Previously computed solution used at level °), 
length(Stack,Nml), N is Nml¢l, write(N), nl, !. 


writedebug/ :- not(debugflag), !. 
writedebug?7 :- nl, !. 


/* Miscellaneous utility functions */ 


delete_uncreatable([],[]). 
delete_uncreatable([X!IL] ,.M) :- uncreatable(X), !, delete_uncreatable(L,M). 
delete_uncreatable([XIL]},[X!IM]) :- delete_uncreatable(L,M). 


all_achievable(S,G) :- difference(G,S,D), not(unachievable_member(D) ). 
unachievable_member(D) :- backtracking member(F,D), uncreatable(F). 


uncreatable(F) :- precondition(O,L), backtracking _member(F,L), 
not(in_postcondition(F)). 


in_postcondition(not(F)) :- any_deletepostcondition(O,DPL), member(F,DPL). 

in_postcondition(not(F)) :- randsubst(O,RSL), member([F.X,Y,Z],RSL). 

in_postcondition(F) :- not(F=..[not,P]), any_addpostcondition(O,APL), 
member(F,APL). 

in_postcondition(F) :- not(F=..[not,P]), randsubst(O,RSL). 
member([X,F,Y,Z],RSL). 


any_deletepostcondition(O,L) :- deletepostcondition(O,C,L). 
any_deletepostcondition(O,L) :- deletepostcondition(O,L). 
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any_addpostcondition(O,L) :- addpostcondition(O,C,L). 
any_addpostcondition(O,L) :- addpostcondition(O,L). 


get_deletepostcondition(O,S,L) :- deletepostcondition(O,C,L), 
factsubset(C,S), !. 
get_deletepostcondition(O,S,L) :- deletepostcondition(O,L). 


get_addpostcondition(O,S,L) :- addpostcondition(O,C,L), factsubset(C,S), !. 
get_addpostconditi0n(O,S,L) :- addpostcondition(O,L). 


applicable_op(D,O) :- subset(D2,D), recommended(D2,0). 


difference([{].S,[]). 
difference([not(P)!IG],S,G2) :- not(singlemember(P,S)), !, difference(G,S,G2). 
difference([PIG],S,G2) :- singlemember(P,S), !, difference(G,S,G2). 
difference({[PIG],S,([PIG2]) :- difference(G,S,G2). 


subset([].L). 
subset([XIL],L2) :- singlemember(X,L2), subset(L,L2). 


factsubset([],L). 

factsubset([not(P)IL].L2) :- not(singlemember(P,L2)), !, factsubset(L,L2). 
factsubset([not(P)IL],L2) :- !, fairl. 

factsubset([PIL],L2) :- singlemember(P,L2), factsubset(L,L2). 


member(X,L) :- singlemember(X,L). 


singlemember(X,[AIL]) :- !. 
singlemember(X,[YIL]) :- singlemember(X,L). 


append([{].L.L). 
append([XIL],L2,{XIL3]) :- append(L,L2,L3). 


union([],.L.L). 
union( (XIL!I].L2,L3) :- singlemember(X.L2), !, union(L1,L2,L3). 
union( [XIL1],L2,[XIL3]) :- union(L!,L2,L3). 


deleteitems([],L,L). 

deleteitems({XIL].L2,L3) :- delete(X,L2,L4), deleteitems(L,L4,L3). 
delete(X.[].[]). 

delete(X,[XIL].M) :- !, delete(X,L.M). 

delete(X,[YIL],{[YIM]) :- delete(X,L,M). 


check_pemutation(L,M) :- subset(L,M), subset(M,L), !. 


subsequence({],L) :- !. 
subsequence((XIL],(XIM]) :- !, subsequence(L,M). 
subsequence(L,[AIM]) :- subsequence(L,M). 


permutemember(X,[XIL]) :- !. 
permutemember(X,[YIL]) :- subset(X,Y), subset(Y,X), !. 
permutemember(X,[YIL]) :- permutemember(X,L). 


last([X],.X). 
Pastcleil).y) :- last(L,Y). 


elimdups([{],[]). 


elimdups([XIL].M) :- singlemember(X,L), !, elimdups(L,M). 
elimdups([{XIL],[XIM]) :- elimdups(L,M). 
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uniqueassert(Q) :- Q=..[{PIL], length(L,N), abolish(P,N), asserta(Q). 


backtracking member(X,[XIL]). 
backtracking member(X,[YIL]) :- backtracking member(X,L). 
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set_up :- reconsult(tops20-nm), 
reconsult(tasks), 
reconsult(tutor), 
save(savedstate), 


go. 


gO :- initialize, 
greeting, 
introduction, 
issue_task, 


Zo. 
initeralize :- asserta( level(top)), 
asserta(last_sent_msg(77)), 
asserta(current_msg(12)), 
asserta(current_task(1)). 
greeting :- nl,write(’Tutor: Hi, what is your name? °),niceread(Name), 
asserta(user(Name)), nl, 
write(' Tutor: Nice to meet you, *'),nwrite(Name) ,write(’.’),nl. 
introduction :- introduction(I), nl, write(I), nl. 
introduction(' Welcome to TOPS20 MM Self-learning course. 


Type "?" or “help” for the available commands 
and "? task” for the current task.’). 


issue_task :- bagof(X,P"precondition(X,P),XL), uniqueassert(op_list(XL)), 
task(1). 


task(N) :- nl,nl, 
retract(current_task(CT)), asserta(current_task(N)), 
q(N.Q), write(Q), nl,nl, 
taskI(N), 
NN is N + 1, task(NN). 


change_level(NL) :- retract(level(OL)), asserta(level(NL)). 


top_pronipt :- nl, write(’'@ °). 
mm_prompt :- nl, write(’MVb °). 
send_prompt :- nl, write(’S> °). 
read_prompt :- nl, write(’R> °). 


/* Basic tasks. */ 
q(l,’Tutor: We are now at the top level mode. 
Your fisrt exercise is to invoke the MM."). 


taskl(1) :- tutor([level(top)],[level(nm)]). 


q(2,’Tutor: Good. Now, we are at the MM mode. 
Lets browse the headers of the current message in the mail box.’). 
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task1(2) :- tutor([level (mm) ],[issued_conmand(nm, headers current’)]). 


qC32 Tutor: ©.K. 
Lets browse the content of the current message.’ ). 
task1(3) :- current_msg(K) ,tutor([level(nm)],[seen(K)]). 


q(4,’Tutor: Now, go back to the top level again.’). 
task1(4) :- tutor([level(mm)],[level(top)]). 


q(5,°Tutor: All right. We came back to the TOP level. 
Now, lets browse all the headers of messages in the mail box.’). 
task1(5) :- tutor([level(top)],[level(mm)]). 


q(62,0%>)- 
taskil(6) :- tutor([level(nm)],[issued_conmand(nm, headers all’)]). 


q(7,*’Tutor: Now, list all the headers of flagged messages in the mail box.’). 
task1(7) :- tutor( [level (nm) ], [issued_conmand(nm, headers flag’)]). 


q(8.°Tutor: Good. Now, set the flag on the message number 12.’). 
task1(8) :- tutor( [level (nm) ], [issued_conmand(nm, flag)]). 


q(9,’Tutor: O.K. Now, list all the headers of flagged messages again.’). 
task1(9) :- tutor([level(nmm)],[issued_conmand(nm, headers flag’)]). 


q(10,°Tutor: List all the headers of the unseen messages in the mail box.’). 
task1(10) :- tutor([level(mm) ],[issued_conmand(nm, headers unseen’ )]). 


q(il,’Tutor: All right. 
Now, lets browse the message number 10.°). 


taskl(1l1) :- tutor([level(nm)], [seen (10)]). 


q(12,’Tutor: Now, jump to the message number 7 in the mail box.’). 
task1(12) :- tutor([ level (nm) ], [moved(7)]). 


q(13,’Tutor: All right. 
Now, lets browse the current message in the mail box again.’). 
task1(13) :- current_msg(K), tutor([level(mm)], [seen(K)]). 


q(14,'Tutor: Good. 
Now, browse the next message in the mail box.’). 
task1(14) :- tutor([level(nm)],[issued_conmand(nm,next)]). 


q(15,°’Tutor: Now, browse the previous message in the mail box.’). 


taskI1(15) :- tutor(| level (nm) ], [issued_command(nm, previous)]). 


q(16,*Tutor: Good. Now, send a message to X@SRI-KL.’). 
task1(16) :- tutor( [level (mm) ], [issued_conmand(to, ’M@SRI-KL’), 
issued _conmand(ready_to_send,send)]). 


q(17,’Tutor: Exellent. 

Now, send a message to the address in message 6’). 
task1(17) :- tutor([ level (mm) ], 
[seen(6),issued_conmand(to,A),issued_conmand(ready_to_send,send)]). 


/* Help message */ 


respond_help(Level) :- nl, 
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write(’ Following are the possible conmands at "), 
write(Level), write(’ level: ’), nl,nl, 
level_commands(Level). 


level_commands(top) :- 


write(’ mm’), nl, 
write(’ quit, J, nh, 
nl. 


level _conmands(nm) :- 


write(- answer headers all list send *) 
write(’ copy headers current logout type ") 
write(’ delete headers delete move undelete °) 
write(’ exit headers flag next unflag ) 
write(’ expunge headers unseen previous e 
write(’ flag help quit ") 
write(’ forward j ump read ia) 
nl. 


level _commands(read) :- 
write(’ copy help quit unflag 
write(’ delete list reply 
write(’ flag move send 
write(’ forward next undelete 
nl. 


; ale 


level_conmands(send) :- 
write(’ display headers send °") 
write(’ erase quit type ) 
nl. 


~~ = 
= 
= 
~~ 


/* Functions of each conmand */ 


give_def(mm,quit) :- write(’ This is the function of command "quit”.’). 


/* Operator definitions for means-ends analysis */ 
/* Reconmended operators for required goals. */ 
reconmended( [issued_command(X,Y)],conmmand(X,Y)). 


reconmended([level(top)],command(mm,X)) :- member(X,(quit,q]). 
reconniended( [level (nm) ],conmand(top,nm)). 
reconmended([level(to)],command(nm,send)). 
reconmended( [level (cc) ],command(to,X)). 
reconmended( [level (subject )]},conmmand(cc ,X)). 
reconmended([level (message) ],command(subject ,Y)). 
reconmended([level(ready_to_send)],command(message,X)). 


reconmended( [moved(K)],.command(nm,C)) :- not(var(K)), name(’ jump ’,Al1), 
name(K,A2), append(Al,A2,AC), name(C,AC). 


reconmended([seen(K)],command(nm,type)) :- not(var(K)). current_msg(K). 
reconmended([seen(K)],command(nm.C)) :- not(var(K)), name( ‘type °.Al), 


name(K,A2), append(Al ,A2,AC), name(C,AC). 


/* Preconditions for each operator. */ 
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nl, 
nl, 
nl, 
nl, 
nl, 
nl, 


precondition(conmmand(L,X),[level(L)]). 
/* Deletepostconditions and Addpostconditions for each operators. */ 


deletepostcondition(conmmand(nm,Y),[]) :-  ordconmands(O), member(Y,O). 
addpostcondition(conmand(nm,Y),[issued_conmand(X,Y)]) :- 
ordconmands(O), member(Y,O). 


deletepostcondition(command(nm,Y),[]) :- not(var(Y)), long _jump_conmand(Y,Z). 
addpostcondition(conmand(nm,C), [moved(K) ,issued_conmand(nm,C) ] ) 
:- long_jump_conmand(C,K). 


deletepostcondition(conmmand(nm,Y),[]) :- not(var(Y)), long_type_command(Y,Z). 
addpostcondition(conmmand(nm,C), [seen(K) ,issued_conmand(nm,C) J) 
:- long _type_conmand(C,K). 


deletepostcondition(conmand(nm, type),[]). 

addpostcondition(conmand(nm,type),[seen(K) ,issued_conmand(nm, type) }) 
:- current_msg(K). 

deletepostcondition(conmand(top,nm),[level (top) ]). 

addpostcondition(conmand(top,nm),[1ssued_command(top,mm),level(mm) J). 


deletepostcondition(conmand(nm,quit).[level (mm) ]). 
addpostcondition(conmand(nm,quit),[{issued_conmmand(nm,quit),level(top)]). 


deletepostcondition(conmand(nm,q),[level (nm) J). 
addpostcondition(command(nm,q),[issued_conmand(nm,quit),level(top)]). 


deletepostcondition(conmand(nm, send), [level (mm) ]). 
addpostcondition(conmand(nm, send) ,[issued_conmand(nm, send),level(to)]). 


deletepostcondition(conmmand(X,Y),[level(X)]) :- 

member(X,[to,cc,subject ,message,ready_to_send]). 
addpostcondition(command(to,X),[level(cc),issued_command(to,X)]). 
addpostcondition(conmand(cc,X),[level( subject ),i1ssued_conmand(cc,X) ]). 
addpostcondition(conmmand(subject ,X),[level (message) ,issued_conmand(subject,X)]). 
addpostcondition(conmmand(message,X), 

[level( ready_to_send) ,issued_conmand(message,X)]). 
addpostcondition(conmand(ready_to_send,send), 

[level(mm) ,issued_command(ready_to_send,send)]). 
addpostcondition(conmmand(ready_to_send,quit), 

[issued_conmand(ready_to_send,quit),level(ready_to_send)]). 


ordconmands([answer,copy,delete,exit ,expunge,flag,forward,’headers all’, 
‘headers current’, ’headers delete’, headers flag’, ’ headers unseen’, 
help, list ,logout ,move,next,previous undelete ,unflag]). 


long _jump_conmand(C,K) :- not(var(C)), name(C,AC), name('jump °,AT), 
append(AT,AK,AC), name(K,AK), number (K). 


long_type_conmand(C,K) :- not(var(C)), name(C,AC), name(’type °,AT), 
append(AT,AK,AC), name(K,AK), number(K). 


long _help_conmmand(C,HC) :- not(var(C)), name(C,AC), name(’help °,AT), 
append(AT,AK,AC), name(HC,AK). 

nopref(O,conmand(nm,type)) :- O=..[command,nm,C]. long _type_conmand(C,K), 
current_msg(K). 

nopref(O,conmand(nm, jump)) :- O=..[command,nm,C], long_jump_conmand(O,K) , 


current_msg(K). 
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nopref(q,quit). 
nopref(n,next). 
nopref(p,previous). 
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/* Check against the possible error lists. */ 


check_error(Level ,Nconmand ,NO) :- Nceonmand =.. [Pred,L,Conmand], 
not(valid(Level ,Conmand)), 
check_errorl(Level ,Conmand ,NNO), 
call(Level ,NNO,NO). 

call (Level ,NNO,NO) :- NO =.. [command,Level,NNO]. 


/* checks error for short type errors */ 

check_errorl( Level ,Sconmand ,Nconmand) :- type_error_list(Level ,Ncommand,List), 
member(Sconmand,List), 
ask_error(Level ,Nconmand). 


type_error_list(Leve! .q.fa,s,w,1,2]). 
type_error_list(top,mm,[nn,jj,mj,mn, jm,nm]). 


/* checks error for one mistype in the long conmand */ 

check_errorl(Level ,String_conmand,Correct_conmmand) :- 
name(String_conmand,List_conmand), 
length(List_conmand,Length), Length > 2, 
valid(Level ,Any_valid_command) , 
name (Any_valid_command,Valid_list_command), 
one_difference(List_command,Valid_list_conmand), 
name(Correct_conmmand,Valid_list_conmand), 
ask _error(Level ,Correct_conmand). 


/* checks transposing error in conmand */ 

check_errorl(Level ,String_conmand,Transposed_string_conmand) :- 
name (String conmmand,List_conmand) , 
do_transpose(List_conmand,Transposed_command) . 
name (Transposed_string_conmand,Transposed_conmand) , 
valid(Level ,Transposed_string conmand), 
ask_error(Level,Transposed_string_conmand). 


do_transpose(L,TL) :- transpose(L,TL). 
transpose([X,Y!L],[Y,X!L]). 

transpose([X{L],[X!L2]) :- transpose(L,L2). 

check_errorl(Level ,Scommand,Nconmand) :- name(Sconmand ,Aconmand) , 


type_error_listi (Level ,Nconmand,List1), 
membe r(Aconmand,List1), 
ask_error(Level ,Nconmand). 


type_error_listl(Level ,Command,Error) :- e(Command,Error). 
e(trace,[{[X,114,97,99,101],[116,X,97,99,101],[116,114,X,99,101]]). 


/* checks error for level errors */ 
check_errorl(Level ,Sconmmand ,Nconmand) :- level_error_list (Level ,.Nconmand) , 


correct _level_error(Level ,Nconmand). 


/* Correct the errors in misconception of level */ 
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correct level error(top.E) :- nl.write(’Ooops! You can issue a "’), 
write(E), write(’" command only in the "MM" level.'), 
ni,nl, write( Try again.’),nl1. 

fe 
NO =.. [conmand,top.E], 
check with_student(O,S,D,NO),!. 

eh 


correct_level_error(mm,E) :- nl,write(’Ooops! You can issue a "’), 
write(E), write(’" conmand only in the "TOP" level.’), 
ni,nl, write(’Try again.’),n1. 
7 * 
NO =.. [conmand,nm,E], 
check with_student(O,S,D,NO),!. 
Hf 


/* Ask the user if he/she meant the valid conmnand. */ 


ask_error(Level ,Correct_conmmand) :- nl, 
write( Ooops! You mean "*), write(Correct_conmand), write('"? °), 
niceread(Answer), nl, 
!, name(Yes_or_no,Answer), 
NC =.. [conmand,Level,Correct_conmand], 
correct_error(Yes_or_no,Level ,NC). 


/* Correct the error if the answer is "yes" */ 
correct_error(A,Level!,NC) :- affirmative(A), nl, action(Level ,NC), !. 


try_again(Level ,.NC) :- , !. 


/* Correct the error if the answer is "no" *¥/ 
correct_error(A,Leve! NC) :- negative(A),nl, 
!, write(’Please, type the correct conmmand.’),n1. 
Veeit the answer is meither “yes” nor "no" */ 
correct_error(A,Level ,NC) :- nl, write(’Please, answer in "yes" or "no". ’), 
ni, write(’==> °), niceread(B), name(S,B), 
correct_error(S,Level ,NC). 


/* valid commands in TOP level */ 


valid(top,nm). 
valid(top,q). 


/* valid commands in MM level */ 


valid(mm,answer). 
valid(nm,copy). 
valid(nm,delete). 
valid(nmm,exit). 
valid(mm,expunge). 
valid(nm,flag). 

valid(nm, forward). 
valid(nm, ‘headers all’). 
valid(mm, headers current’). 
valid(nm, headers delete’). 
valid(nmm, headers flag’). 
valid(mm, headers unseen’). 
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valid(nm,help). 
valid(nm, jump). 
valid(nm, list). 
valid(nm, logout). 
valid(nm,move). 
valid(nmm,next). 
valid(nm,previous). 
valid(nm,quit). 
valid(nm,q). 
valid(nm,read). 
valid(nm,send). 
valid(nm,type). 
valid(mm,undelete). 
valid(nm,unflag). 


/* valid commands in READ mode */ 


valid(read,copy). 
valid( read ,delete). 
valid(read,flag). 
valid( read,forward). 
valid(read,help). 
valid(read. list). 
valid( read ,move). 
valid(read,next). 
valid(read,quit). 
valid(read,q). 
valid(read,reply). 
valid(read,send). 
valid(read,undelete). 
valid(read,unflag). 


/* valid commands in SEND mode */ 


valid(send,display). 
valid(send,erase). 
valid(send,.headers). 
valid(send,quit). 
valid(send,q). 
valid(send,send). 
valid(send,type). 


level_error_list(top,answer). 
level_error_list(top,copy). 
level_error_list(top,delete). 
level_error_list(top,exit). 
level_error_list(top,expunge). 
level_error_list(top,flag). 
level_error_list(top,forward). 
level_error_list(top,’ headers all’). 
level_error_list(top,’ headers answer’). 
level_error_list(top, headers delete’). 
level_error_list(top,’ headers flag’). 
level_error_list(top,’ headers unseen’). 
level_error_list(top,help). 
level_error_list(top,jump). 
level_error_list(top,list). 
level_error_list(top,next). 
level_error_list(top,previous). 
level_error_list(top,read). 
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hewederror_list(top,send): 
tevelweerror list(top.type). 
level_error_list(top,undelete). 
level_error_list(nm,nm). 


affirmative(yes). 
affirmative(yep). 
affirmative(yap). 
affirmative(ya). 
affirmative(ye).. 
affirmative(ya). 
affirmative(y). 
affirmative(right). 
affirmative(ok). 


negative(no). 
negative(n). 
negative(nop). 
negative(never). 


member(X,[XIL]). 
member(X,[Y!L]) :- member(X.L). 


Scamvertecstring to ASerl (rst ,Alist) :- conl(List ,Tlist),reverse(Tlist ,Alist). 
conl({].[]). 
conl({XIL] ,Alist) :- name(X,Ascii),append(Ascii,Alist ,Nalist),con1(L,Nalist). 


one_difference([XIL],[YIL]). 
one_difference([XIL1],[XIL2]) :- one_difference(L1,L2). 
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